---
title: "Dashboards at EVANS UW"
author: "Great student"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    social: menu
    source_code: embed
---

```{r setup, include=FALSE}
library(ggplot2)
library(plotly)
library(plyr)
library(flexdashboard)
library(sf)

myWeb="https://github.com/Visual-Analytics-Project-UW-EvansSchool/ourMap/raw/main/"
mapWorldVars=read_sf(paste0(myWeb,"mapWorldVars.geojson"))
```

Static Plots
=======================================================================

Row
-----------------------------------------------------------------------

### Histogram

```{r}
base = ggplot(data=mapWorldVars) + theme_classic()
ps1=base + geom_histogram(aes(x=HDI)) 
ps1
```


### boxplot 

```{r}
ps2=base + geom_boxplot(aes(y= mil_expend)) 
ps2
```

Row
-----------------------------------------------------------------------

### Scatter Plot 1

```{r}
ps3=base + geom_point(aes(x=HDI,y= mil_expend)) 
ps3
```

### Scatter Plot 2

```{r}
ps4=base + geom_point(aes(x=HDI,y= DemoIndex)) 
ps4
```

Interactive Plots
=======================================================================

Row
-----------------------------------------------------------------------

### Histogram 

```{r}
pi1=base + geom_histogram(aes(x=HDI)) 
ggplotly(pi1)
```

### Boxplot

```{r}
pi2=base + geom_boxplot(aes(y=DemoIndex)) 
ggplotly(pi2)

```

Row
-----------------------------------------------------------------------

### Scatter Plot 1

```{r}
pi3=base + geom_point(aes(x=HDI,y= mil_expend)) 

ggplotly(pi3)
```

### Scatter Plot 2

```{r}
pi4=base + geom_point(aes(x=HDI,y= DemoIndex))


ggplotly(pi4)
```